unit fWarehouseoutAnalyse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, fBaseAnalyse, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinCaramel,
  dxSkinOffice2010Silver, dxSkinSeven, dxSkinscxPCPainter, cxCustomData,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, uDAScriptingProvider,
  uDADataTable, uDAMemDataTable, uDAInterfaces, uDARemoteDataAdapter,
  cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGrid,
  StdCtrls, Mask, RzEdit, RzButton, RzLabel, ExtCtrls, cxCurrencyEdit;

type
  TfmWarehouseoutAnalyse = class(TfmBaseAnalyse)
    tvBrowserColumn1: TcxGridDBBandedColumn;
    tvBrowserColumn2: TcxGridDBBandedColumn;
    tvBrowserColumn3: TcxGridDBBandedColumn;
    tvBrowserColumn4: TcxGridDBBandedColumn;
    tvBrowserColumn5: TcxGridDBBandedColumn;
    tvBrowserColumn6: TcxGridDBBandedColumn;
    tvBrowserColumn7: TcxGridDBBandedColumn;
    tvBrowserColumn8: TcxGridDBBandedColumn;
    tvBrowserColumn9: TcxGridDBBandedColumn;
    tvBrowserColumn10: TcxGridDBBandedColumn;
    tvBrowserColumn11: TcxGridDBBandedColumn;
    tvBrowserColumn12: TcxGridDBBandedColumn;
    tvBrowserColumn13: TcxGridDBBandedColumn;
    tvBrowserColumn14: TcxGridDBBandedColumn;
    tvBrowserColumn15: TcxGridDBBandedColumn;
    procedure btnGoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmWarehouseoutAnalyse: TfmWarehouseoutAnalyse;

implementation

{$R *.dfm}

procedure TfmWarehouseoutAnalyse.btnGoClick(Sender: TObject);
begin
  FSql := 'select dwho_cno,dwho_cname,dwho_no,dwho_date,dwoi_productno,dwho_whname,dwoi_productrealno,dwoi_productname,dwho_projectno,dwho_osimpname,dwho_no,dwho_date,dwho_pino,dwoi_qty,dwoi_sellprice,'+'dwoi_sellamt,dwho_sellmcode from d_warehouseout,d_warehouseoutitem where dwoi_whoid=dwho_id and dwho_date>='+QuotedStr(edtStart.Text)+ ' and dwho_date<='+ QuotedStr(edtEnd.Text)+ ' order by dwho_osimpname,dwho_cname,dwho_date';
  inherited;

end;

end.
